home *** CD-ROM | disk | FTP | other *** search
- #!/usr/local/bin/perl
- #
- # hosts-addr - prints host names and IP addresses contained in A RR's.
- # The names should be absolute (see expand)
- #
- # Copyright (C) 1992, 1993 PUUG - Grupo Portugues de Utilizadores
- # do Sistema UNIX
- # 1992, 1993 FCCN - Fundacao para o Desenvolvimento dos Meios
- # Nacionais de Calculo Cientifico
- #
- # Authors: Jorge Frazao de Oliveira <frazao@puug.pt>
- # Artur Romao <artur@dns.pt>
- #
- # This file is part of the DDT package, Version 2.0.
- #
- # Permission to use, copy, modify, and distribute this software and its
- # documentation for any purpose and without any fee is hereby granted,
- # provided that the above copyright notice appear in all copies. Neither
- # PUUG nor FCCN make any representations about the suitability of this
- # software for any purpose. It is provided "as is" without express or
- # implied warranty.
-
-
- $[ = 1; # set array base to 1
- $, = ' '; # set output field separator
- $\ = "\n"; # set output record separator
-
- while (<STDIN>) {
- if (/\tA\t/) {
- chop; # strip record separator
- @Field = split(/\s+/, $_);
-
- $host_addr{$Field[1], $Field[$#Field]} = 1;
- }
- }
-
- foreach $h (keys %host_addr) {
- @ha = split($;, $h);
-
- print "$ha[1]\t$ha[2]";
- }
-
-